home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / REAL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  24.3 KB  |  707 lines
  1. 10 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB1580:TN=832:TT=886
  2. 20 PG$="  PURPLE, LT. BLUE, MAROON, ORANGE,       RED, YELLOW, GREEN, DK. BLUE"
  3. 30 DIMPN$(42),D(42,1),CH$(16),CC$(16),P(42,9),PT$(42),C$(42),PS(42),H(42),MG(42)
  4. 40 DIM P$(2),PL(2),O(2),JT(2),M(2),CJ(2)
  5. 50 GOSUB200:PRINT"DO YOU WANT AUCTION RULE?Y OR N"
  6. 51 GETQ$:IFQ$<>"Y"ANDQ$<>"N"THEN51
  7. 52 IFQ$="Y"THENAF=1
  8. 60 PRINT"WANT FREE PARKING JACKPOT OPTION?Y OR N"
  9. 61 GETQ$:IFQ$<>"Y"ANDQ$<>"N"THEN61
  10. 62 IFQ$="Y"THENPF=1:FP=500
  11. 70 M(1)=1500:M(2)=1500:PL(1)=1:PL(2)=1:DV=2
  12. 80 CD$="":CR$=""
  13. 90 ZQ=RND(-TI):X1=8:Y1=10:X2=23:Y2=10:RX=6:RY=18
  14. 100 E$="                  [146]":RM$="HIT  'R' OR 'T'[146]"
  15. 110 PRINT"[147][159]     PLEASE WAIT WHILE I SET UP."
  16. 120 FORI=1TO4:P(6+((I-1)*10),8)=100:NEXT:P(13,8)=75:P(29,8)=75
  17. 130 CH=INT(RND(1)*16)+1:CC=INT(RND(1)*16)+1
  18. 140 FORI=1TO41:FORJ=0TO1:READD(I,J):NEXT:NEXT
  19. 150 P$(1)="   PLAYER 1[146]":P$(2)="   PLAYER 2[146]"
  20. 160 FORI=1TO41:READPN$(I):NEXT:FORI=1TO41:READPT$(I):IFPT$(I)<>"P"THEN180
  21. 170 READC$(I):FORJ=1TO9:READP(I,J):NEXTJ
  22. 180 NEXTI
  23. 190 FORI=1TO16:READCH$(I):NEXT:FORI=1TO16:READCC$(I):NEXT:GOTO290
  24. 200 PRINT"[147]         REAL ESTATE TYCOON"
  25. 260 PRINT"  HIT 'R' TO ROLL DICE AND 'T' FOR        TRANSACTION MENU."
  26. 270 PRINT"  '0' CAN BE USED TO RETURN FROM MOST     SUBROUTINES"
  27. 280 PRINT:PRINT" DEVELOPED PROPERTIES MAY NOT BE TRADED.":PRINT:RETURN
  28. 290 POKE54277,79:POKE54284,79:POKE54291,79
  29. 300 POKE54278,248:POKE54286,248:POKE54292,248
  30. 310 POKE54276,33:POKE54288,33:POKE54290,33
  31. 320 G(1)=54272:G(2)=54273:G(3)=54279:G(4)=54280:G(5)=54286:G(6)=54287
  32. 330 FORI=1TO6:POKEG(I),0:NEXT
  33. 340 POKE54296,15:IFPEEK(832)<>160THENGOSUB6480
  34. 350 GOSUB1310:FORPK=1TO2:POKED(1,PK-1),48+PK:O(PK)=D(1,PK-1):PT=PK:NEXT:GOSUB6570
  35. 360 GOSUB1610:IFR1=R2THEN360
  36. 370 PT=(R1>R2)+2
  37. 380 POKED(PL(1),0),49:POKED(PL(2),1),50
  38. 390 PT$=STR$(PT)
  39. 400 MS$="PLAYER"+PT$+" STARTS[146]"
  40. 410 X=RX:Y=RY:Z$=MS$:GOSUB1560:FORDE=1TO1500:NEXT:Z$=E$:GOSUB1560:GOTO620
  41. 420 DV=2:MF=0:JB=0
  42. 430 IFPL(PT)=41THEN530
  43. 440 JT(PT)=0
  44. 450 GOSUB1610:DF=1
  45. 460 IFDB=3THENSYSTN:GOSUB3210:SYSTT:GOSUB6570:GOTO560
  46. 470 FORM=1TODR:PL(PT)=PL(PT)+1
  47. 480 POKEO(PT),160:IFPL(PT)>40THENPL(PT)=PL(PT)-40:SYSTN:GOSUB1710:SYSTT
  48. 490 POKED(PL(PT),PT-1),48+PT
  49. 500 O(PT)=D(PL(PT),PT-1)
  50. 510 FORT=1TO50STEP6+PT:FORI=1TO6:POKEG(I),T:NEXT:NEXT
  51. 520 FORI=1TO6:POKEG(I),0:NEXT:NEXTM
  52. 530 POKED(PL(PT),PT-1),48+PT:GOSUB6570
  53. 540 SYSTN:GOSUB1780:SYSTT:GOSUB6570:IFM(PT)<0THENGOSUB6310:SYSTT
  54. 550 IFPL(PT)=11THENPOKED(41,PT-1),160:POKED(11,PT-1),48+PT
  55. 560 IFJBTHENJB=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO470
  56. 570 IFMFTHENMF=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO530
  57. 580 IFJETHENJE=0:POKEO(PT),160:O(PT)=D(PL(PT),PT-1):GOTO620
  58. 590 IFJFTHENJF=0:POKED(PL(PT),PT-1),48+PT:POKEO(PT),160:O(PT)=D(PL(PT),PT-1)
  59. 600 IFDBTHEN620
  60. 610 PT=3-PT
  61. 620 Z$=P$(PT):X=RX:Y=RY-1:GOSUB1560
  62. 630 Z$=RM$:X=RX:Y=RY:GOSUB1560
  63. 640 GETBC$:IFBC$<>""THEN640
  64. 650 GETA$:IFA$=""THEN650
  65. 660 IFA$="T"THENSYSTN:GOSUB4190:SYSTT:GOSUB6570:GOTO620
  66. 670 GOTO420
  67. 680 DATA1978,1938,1974,1973,1931,1930,1968,1967,1925,1924,1922,1921
  68. 690 DATA1959,1958,1956,1955,1953,1952,1950,1949,1944,1904
  69. 700 DATA1824,1825,1744,1745,1664,1665,1584,1585,1505,1506,1424,1425
  70. 710 DATA1346,1347,1264,1265,1184,1185,1104,1105
  71. 720 DATA1029,1030,1032,1033,1035,1036,1038,1039,1081,1082,1044,1045
  72. 730 DATA1047,1048,1130,1131,1053,1054,1096,1097
  73. 740 DATA1217,1218,1297,1298,1377,1378,1457,1458,1536,1537,1617,1618
  74. 750 DATA1697,1698,1777,1778,1857,1858,1906,1907
  75. 760 DATA">GO<[155]","[155]MEDITERRANEAN AVE.[155]","[158]COMMUNITY CHEST[155]","[155]BALTIC AVE.[155]"
  76. 770 DATA"[154]INCOME TAX[155]"
  77. 780 DATA"[152]READING R.R.[155]","[159]ORIENTAL AVE.[155]","[150]CHANCE[155]","[159]VERMONT AVE.[155]"
  78. 790 DATA"[159]CONNECTICUT AVE.[155]"
  79. 800 DATA"[150]JUST VISITING[155]","[156]ST. CHARLES PLACE[155]","[153]ELECTRIC COMPANY[155]","[156]STATES AVE.[155]"
  80. 810 DATA"[156]VIRGINIA AVE.[155]","[152]PENNSYLVANIA R.R.[155]","[129]ST. JAMES PLACE[155]"
  81. 820 DATA"[158]COMMUNITY CHEST[155]"
  82. 830 DATA"[129]TENNESSEE AVE.[155]","[129]NEW YORK AVE.[155]","[149]FREE PARKING[155]","KENTUCKY AVE.[155]"
  83. 840 DATA"[150]CHANCE[155]","INDIANA AVE.[155]","ILLINOIS AVE.[155]","[152]B & O  R.R.[155]"
  84. 850 DATA"[158]ATLANTIC AVE.[155]"
  85. 860 DATA"[158]VENTNOR AVE.[155]","[153]WATER WORKS[155]","[158]MARVIN GARDENS[155]","[150]GO[155] [154]TO[155] JAIL[155]"
  86. 870 DATA"PACIFIC AVE.[155]"
  87. 880 DATA"N. CAROLINA AVE.[155]","[158]COMMUNITY CHEST[155]","PENNSYLVANIA AVE.[155]"
  88. 890 DATA"[152]SHORT LINE[155]"
  89. 900 DATA"[150]CHANCE[155]","PARK PLACE[155]","[154]LUXURY TAX[155]","BOARDWALK[155]","[150]IN JAIL[155]"
  90. 910 DATAGO,P,PURPLE,60,2,10,30,90,160,250,30,50,CC,P,PURPLE,60,4,20,60,180,320
  91. 920 DATA450,30,50,IT,RR,P,LT. BLUE,100,6,30,90,270,400,550,50,50,CH,P,LT. BLUE
  92. 930 DATA 100,6,30,90,270,400,550,50,50,P,LT. BLUE,120,8,40,100,300,450,600,60,50
  93. 940 DATAJV,P,MAROON,140,10,50,150,450,625,750,70,100,U,P,MAROON,140,10,50,150,450
  94. 950 DATA625,750,70,100,P,MAROON,160,12,60,180,500,700,900,80,100,RR
  95. 960 DATAP,ORANGE,180,14,70,200,550,750,950,90,100,CC,P,ORANGE
  96. 970 DATA 180,14,70,200,550,750,950,90,100
  97. 980 DATAP,ORANGE,200,16,80,220,600,800,1000,100,100,FP,P,RED
  98. 990 DATA 220,18,90,250,700,875
  99. 1000 DATA1050,110,150,CH,P,RED,220,18,90,250,700,875,1050,110,150,P,RED,240
  100. 1010 DATA 20,100,300
  101. 1020 DATA750,925,1100,120,150,RR,P,YELLOW,260,22,110,330,800,975,1150,130,150
  102. 1030 DATA P,YELLOW,260
  103. 1040 DATA22,110,330,800,975,1150,130,150,U,P,YELLOW,280,24,120,360,850,1025,1200
  104. 1050 DATA 140
  105. 1060 DATA150,GTJ,P,GREEN,300,26,130,390,900,1100,1275,150,200,P,GREEN
  106. 1070 DATA 300,26,130,390,900
  107. 1080 DATA1100,1275,150,200,CC,P,GREEN,320,28,150,450,1000,1200,1400
  108. 1090 DATA 160,200,RR,CH
  109. 1100 DATAP,DK. BLUE,350,35,175,500,1100,1300,1500,175,200,LT,P,DK. BLUE
  110. 1110 DATA 400,50,200,600,1400
  111. 1120 DATA1700,2000,200,200,IJ
  112. 1130 DATA PAY POOR TAX  $15,GO DIRECTLY TO JAIL,ADVANCE TO GO(COLLECT $200)
  113. 1140 DATA YOUR BUILDING AND LOAN MATURES            COLLECT $150
  114. 1150 DATA ADVANCE TOKEN TO NEAREST R.R.           $ PAY OWNER TWICE RENT
  115. 1160 DATAADVANCE TO ILLINOIS AVE.,BANK PAYS YOU DIVIDEND OF $50
  116. 1170 DATAGET OUT OF JAIL FREE,PAY EACH PLAYER $50,ADVANCE TO ST. CHARLES PLACE
  117. 1180 DATATAKE A RIDE ON THE READING,GO BACK THREE SPACES,ADVANCE TO BOARDWALK
  118. 1190 DATAMAKE GENERAL REPAIRS  $25 FOR EACH HOUSE$100 FOR EACH HOTEL
  119. 1200 DATA ADVANCE TOKEN TO NEAREST R.R.           $ PAY OWNER TWICE RENT
  120. 1210 DATA ADVANCE TOKEN TO NEAREST UTILITY        ROLL DICE & PAY 10*# SHOWN
  121. 1220 DATA GET OUT OF JAIL FREE,GO TO JAIL,ADVANCE TO GO(COLLECT $200)
  122. 1230 DATA FROM SALE OF STOCK YOU GET $45,COLLECT $50 FROM EVERY PLAYER
  123. 1240 DATA RECEIVE FOR SERVICES $25,PAY SCHOOL TAX OF $150,TAX REFUND COLLECT $20
  124. 1250 DATA ASSESSED FOR REPAIRS  $40 PER HOUSE     $115 PER HOTEL
  125. 1260 DATA YOU HAVE WON SECOND PRIZE IN A BEAUTY   CONTEST COLLECT $10
  126. 1270 DATA YOU INHERIT $100,XMAS FUND MATURES COLLECT $100,PAY HOSPITAL $100
  127. 1280 DATA BANK ERROR  IN YOUR FAVOR COLLECT $200,DOCTORS FEE PAY $50
  128. 1290 DATA LIFE INSURANCE MATURES COLLECT $100
  129. 1300 GOTO6470
  130. 1310 PRINT"[147][149]   [160][155][165][160][160][165][160][160][165][160][160][165][160][160][152][191][191][191][155][165][160][160][165]  [165][153]WW[155][165][160][160][150][165]GTJ[146]"
  131. 1320 PRINT"[149][160]FP[160][155][165][160][160][165][150]?[155][160][165][160][160][165][160][160][152][165][160][160][155][165][160][160][165][160] [165][153][176][177][155][165][160][160][154][165]   [146]"
  132. 1330 PRINT"[149]   [160]   [155][165][160][160] [160][160][165]  [152]B&O[158][165]  [165][160][160][155][165][160][160][158] [160][160][165][197][215] [155][146]"
  133. 1340 PRINT"[163][163][163][129] [155][207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [155][163][163][163][146]"
  134. 1350 PRINT"   [129] [155][165]  [206][205]                       [155][160]  [146]"
  135. 1360 PRINT"[163][163][163][129][163][155][165] [158][206]  [155][205] 1-                  [163][155][163][163][163][146]"
  136. 1370 PRINT"   [129] [155][165][206][158]C C[155][206]                      [155]   [146]"
  137. 1380 PRINT"[163][163][163][163][165][205][158]  [206][155]  2-                  [207][163][163][163][146]"
  138. 1390 PRINT"[158]CC[155]  [165] [205][206]                       [158]CC[155]  [146]"
  139. 1400 PRINT"[163][163][163][129] [155][165]   [164][164][164]            [164][164][164]      [155][163][163][163][146]"
  140. 1410 PRINT"   [129] [155][165]  [167]   [155][165]          [167]   [155][165]     [155]   [146]"
  141. 1420 PRINT"[152][191]PR[191][155][165]  [167]   [155][165]  TYCOON[155]  [167]   [155][165]   [167][152][191]SL[191][146]"
  142. 1430 PRINT"[191]  [191][155][165]  [167]   [155][165]  CBM-64[155]  [167]   [155][165]   [167][152][191]  [191][155][146]"
  143. 1440 PRINT"[163][163][163][156] [155][165]   [163][163][163]            [163][163][163]     [207][163][163][163][146]"
  144. 1450 PRINT"   [156] [155][165]                          [165][150]?[155]  [146]"
  145. 1460 PRINT"[163][163][163][156][163][155][165]                      [206][205]   [155][163][163][163][146]"
  146. 1470 PRINT"   [156] [155][165]                     [150][206]  [155][205]  [155]   [146]"
  147. 1480 PRINT"[163][153]EC[155][163][165]                    [206][150]???[155][206] [154]TAX[155][163][146]"
  148. 1490 PRINT"    [165]                    [205][150]  [206][155]  [165]   [146]"
  149. 1500 PRINT"[163][163][163][156] [155][165]                     [205][206]    [155][163][163][163][146]"
  150. 1510 PRINT"   [156] [155][165]                           [155]   [146]"
  151. 1520 PRINT"[150][163][155][207][163][163][159]   [165]  [155][207][163][163][159]   [152][207]RR[155][207][163][163][146]   [207][163][163][146]   [207][163][163][163][146]"
  152. 1530 PRINT"[150] [155][165]  [165]  [165]  [165][150]?[155][160][165][160][160][152][165][160][160][155][165][160][160][165][160][160][165]  [165]  [165]GO [146]"
  153. 1540 PRINT"[150] [163][163][163][155][165]  [165]  [165]  [165]  [152][191][191][191][154]TAX[155][165]  [165][158]CC[155][165]  [165]_[192] [146]"
  154. 1550 RETURN
  155. 1560 PRINT"[155]";LEFT$(CR$,X);LEFT$(CD$,Y);Z$;""
  156. 1570 RETURN
  157. 1580 DC$(1)="   [157][157][157] [209] [157][157][157]   [146]":DC$(2)="  [209][157][157][157]   [157][157][157][209]  [146]"
  158. 1590 DC$(3)="[209]  [157][157][157] [209] [157][157][157]  [209][146]":DC$(4)="[209] [209][157][157][157]   [157][157][157][209] [209][146]"
  159. 1600 DC$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209][146]":DC$(6)="[209] [209][157][157][157][209] [209][157][157][157][209] [209][146]":RETURN
  160. 1610 CT=0
  161. 1620 R1=INT(RND(1)*6)+1:R2=INT(RND(1)*6)+1:DR=R1+R2
  162. 1630 FORI=1TO6:POKEG(I),DR*10:NEXT
  163. 1640 PRINT"";LEFT$(CR$,X1);LEFT$(CD$,Y1);DC$(R1)
  164. 1650 PRINT"";LEFT$(CR$,X2);LEFT$(CD$,Y2);DC$(R2)
  165. 1660 FORI=1TO6:POKEG(I),0:NEXT
  166. 1670 CT=CT+1:IFCT<7THENFORDELAY=1TO75:NEXT:GOTO1620
  167. 1680 IFR1=R2THENDB=DB+1:GOTO1700
  168. 1690 DB=0
  169. 1700 RETURN
  170. 1710 PRINT"[147]":PRINT
  171. 1720 PRINT" COLLECT $200 AS YOU PASS  [172][162][172][187][157][157][157][157][157][188][190][188][190][146]"
  172. 1730 M(PT)=M(PT)+200:PRINT:PRINT:PRINT
  173. 1740 PRINT"HIT ANY KEY TO CONTINUE[146]"
  174. 1750 GETW$:IFW$<>""THEN1750
  175. 1760 GETK$:IFK$=""THEN1760
  176. 1770 RETURN
  177. 1780 POKE198,0:PT$=PT$(PL(PT))
  178. 1790 IFPT$="P"THEN1910
  179. 1800 IFPT$="RR"THEN2400
  180. 1810 IFPT$="GO"THENRETURN
  181. 1820 IFPT$="U"THEN2760
  182. 1830 IFPT$="FP"THEN3070
  183. 1840 IFPT$="JV"THENRETURN
  184. 1850 IFPT$="GTJ"THEN3210
  185. 1860 IFPT$="IT"THEN3320
  186. 1870 IFPT$="LT"THEN3300
  187. 1880 IFPT$="CC"THEN3340
  188. 1890 IFPT$="CH"THEN3580
  189. 1900 IFPT$="IJ"THEN3990
  190. 1910 PRINT"[147]";TAB(15);"TITLE DEED"
  191. 1920 IFGFTHEN1960
  192. 1930 PRINT" PLAYER"PT
  193. 1940 PO=3-PT
  194. 1950 PL=PL(PT):P7=PT
  195. 1960 PRINTTAB(20-(LEN(PN$(PL))-1)/2)"";PN$(PL)"[146]"
  196. 1970 PRINTLEFT$(PN$(PL),1):QR=PEEK(646):POKE53280,QR:PRINT"[145][145]"
  197. 1980 PRINT
  198. 1990 PRINT"                 RENT $";P(PL,2)
  199. 2000 PRINT"           WITH 1 HOUSE  $";P(PL,3)
  200. 2010 PRINT"           WITH 2 HOUSES  ";P(PL,4)
  201. 2020 PRINT"           WITH 3 HOUSES  ";P(PL,5)
  202. 2030 PRINT"           WITH 4 HOUSES  ";P(PL,6)
  203. 2040 PRINT"           WITH HOTEL  $";P(PL,7)
  204. 2050 PRINT
  205. 2060 PRINT"           MORTGAGE VALUE  $";P(PL,8)
  206. 2070 PRINT"          HOUSES COST $";P(PL,9);"EACH"
  207. 2080 PRINT"      HOTELS, $";P(PL,9);". PLUS 4 HOUSES"
  208. 2090 IFGFTHENPRINT:PRINT:GOSUB1740:POKE53280,0:RETURN
  209. 2100 PRINT:FORI=1TO41:IFC$(PL)=C$(I)ANDI<>PLTHENGOSUB2120
  210. 2110 NEXT:GOTO2140
  211. 2120 IFPS(I)THENPRINT" "PN$(I)"  OWNED BY PLAYER #"PS(I):RETURN
  212. 2130 PRINT" "PN$(I)" STILL FOR SALE.":RETURN
  213. 2140 PRINT
  214. 2150 IFMG(PL)=1THENPRINT" MORTGAGED FOR $"P(PL,8)
  215. 2160 PRINT" COST   $";P(PL,1)
  216. 2170 IFPS(PL)=0THEN2220
  217. 2180 PRINT" OWNED[146] BY PLAYER"PS(PL):IFH(PL)THENPRINT"WITH";
  218. 2190 IFH(PL)<5THENPRINTH(PL)"HOUSES."
  219. 2200 IFH(PL)=5THENPRINT" A HOTEL"
  220. 2210 GOTO2270
  221. 2220 PRINT" YOU HAVE $";M(P7)
  222. 2230 PRINT" DO YOU WISH TO BUY THIS PROPERTY";:INPUT"  [191][157][157][157]";A$:A$=LEFT$(A$,1)
  223. 2240 IFA$="N"THEN2330
  224. 2250 IFA$<>"Y"THENPRINT"[145][145]":GOTO2230
  225. 2260 PRINT" OK YOU BOUGHT ";PN$(PL)"":M(P7)=M(P7)-P(PL,1):PS(PL)=PT:GOTO2320
  226. 2270 OW=P(PL,H(PL)+2):IFPS(PL)=PTTHEN2320
  227. 2280 IFMG(PL)THEN2320
  228. 2290 P5=PO:P6=PS(PL):GOSUB2340:IFOATHENIFH(PL)=0THENOW=OW*2
  229. 2300 M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW:PRINT" YOU OWE $";OW
  230. 2310 M(PS(PL))=M(PS(PL))+OW
  231. 2320 GOSUB1740:POKE53280,0:RETURN
  232. 2330 GOSUB6150:GOTO2320
  233. 2340 MG=0:OA=0:PC=0:FORI=1TO41:IFC$(PL)=C$(I)ANDPS(I)=P5THENPC=PC+1:IFMG(I)THENMG=MG
  234. 2350 NEXT
  235. 2360 IFPC=2ANDC$(PL)="PURPLE"THENOA=1:RETURN
  236. 2370 IFPC=2ANDC$(PL)="DK. BLUE"THENOA=1:RETURN
  237. 2380 IFPC=3THENOA=1:RETURN
  238. 2390 RETURN
  239. 2400 PRINT"[147]":PL=PL(PT)
  240. 2410 PRINT"PLAYER"PT
  241. 2420 PRINT"                   [150][216][152] [172][146]"
  242. 2430 PRINT"                      [146]"
  243. 2440 PRINT"                  [206][149][215] [215]"
  244. 2450 PRINT
  245. 2460 PRINTTAB(20-LEN(PN$(PL))/2)"";PN$(PL)"[146]"
  246. 2470 POKE54276,129:POKE54288,17:POKE54290,17
  247. 2480 KO=129:FORT=1TO2:FORI=1TO6:POKEG(I),KO:NEXT:FORDL=1TO400:NEXT
  248. 2490 FORI=1TO6:POKEG(I),0:NEXT:FORDL=1TO60:NEXT:NEXT
  249. 2500 POKE54276,33:POKE54288,33:POKE54290,33     
  250. 2510 PRINT:PRINT"RENT                     $25"
  251. 2520 PRINT"IF 2 R.R.'S ARE OWNED     50"
  252. 2530 PRINT"IF 3 R.R.'S ARE OWNED    100"
  253. 2540 PRINT"IF 4 R.R.'S ARE OWNED    200"
  254. 2550 PRINT
  255. 2560 PRINT"MORTGAGE VALUE          $100"
  256. 2570 PRINT:IFMG(PL)=1THENPRINT"MORTGAGED FOR $100":GOTO2750
  257. 2580 PRINT"COST   $200"
  258. 2590 PRINT:FORI=1TO41:IFPT$(I)="RR"THENGOSUB2610
  259. 2600 NEXT:GOTO2630
  260. 2610 IFPS(I)THENPRINTPN$(I)" OWNED BY PLAYER #";PS(I):RETURN
  261. 2620 PRINTPN$(I)" STILL FOR SALE.":RETURN
  262. 2630 IFPS(PL)THENPRINT"OWNED[146] BY PLAYER#";PS(PL):GOTO2710
  263. 2640 PRINT"YOU HAVE $"M(PT)
  264. 2650 PRINT"DO YOU WISH TO BUY IT";:INPUT"  [191][157][157][157]";B$:B$=LEFT$(B$,1)
  265. 2660 IFB$="N"THENGOSUB6150:GOTO2750
  266. 2670 IFB$<>"Y"THENPRINT"[145][145]":GOTO2650
  267. 2680 M(PT)=M(PT)-200:PS(PL)=PT
  268. 2690 PRINT"OK YOU BOUGHT IT"
  269. 2700 GOTO2750
  270. 2710 OW=0:O7=0
  271. 2720 IFPS(PL)=PTTHEN2750
  272. 2730 OW=25:FORI=6TO36STEP10:IFPT$(I)="RR"ANDPS(I)=PS(PL)THENOW=OW*2
  273. 2740 NEXT:OW=OW/DV:PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
  274. 2750 GOSUB1740:RETURN
  275. 2760 PRINT"[147]"
  276. 2770 PRINT"PLAYER"PT
  277. 2780 PRINT"            [158][206][163][205]     [152][215][209][215]    "
  278. 2790 PRINT"            [158][205][150]^[158][206]    [152][171][192][177][192][192][192][201] "
  279. 2800 PRINT"             [158][165][165]    [152][171][192][192][192][192][201][200] "
  280. 2810 PRINT"             [166]          [173][189] ":PRINT
  281. 2820 PL=PL(PT)
  282. 2830 PRINTTAB(20-LEN(PN$(PL))/2)"";PN$(PL)"[146]"
  283. 2840 PRINT:PRINT"IF ONE UTILITY IS OWNED PAY 4 TIMES THE AMOUNT SHOWN ON DICE"
  284. 2850 PRINT
  285. 2860 PRINT"IF BOTH OWNED PAY 10 [214] AMOUNT ON DICE"
  286. 2870 D1=INT(RND(1)*6)+1:D2=INT(RND(1)*6)+1
  287. 2880 IFDFTHEND1=R1:D2=R2
  288. 2890 PRINT:PRINT"MORTGAGE VALUE  $75":PRINT
  289. 2900 IFMG(PL)=1THENPRINT"MORTGAGED FOR $75":GOTO3060
  290. 2910 IFPS(42-PL)THENPRINTPN$(42-PL)" OWNED BY PLAYER"PS(42-PL):GOTO2930
  291. 2920 PRINTPN$(42-PL)" STILL FOR SALE."
  292. 2930 PRINT:IFPS(PL)THENPRINT"OWNED[146] BY PLAYER#";PS(PL):GOTO3010
  293. 2940 PRINT"YOU HAVE $"M(PT)
  294. 2950 INPUT"DO YOU WISH TO BUY IT  [191][157][157][157]";B$:B$=LEFT$(B$,1)
  295. 2960 IFB$="N"THENGOSUB6150:GOTO3060
  296. 2970 IFB$<>"Y"THENPRINT"[145][145]":GOTO2950
  297. 2980 PRINT"OK YOU BOUGHT ";PN$(PL)""
  298. 2990 M(PT)=M(PT)-150
  299. 3000 PS(PL)=PT:GOTO3060
  300. 3010 IFPS(PL)=PTTHEN3060
  301. 3020 PRINT"DICE SHOW"D1"AND"D2"."
  302. 3030 MT=4:IFPS(13)=PS(PL)ANDPS(29)=PS(PL)THENMT=10
  303. 3040 IFDF=0THENMT=10
  304. 3050 OW=MT*(D1+D2):PRINT"YOU OWE $";OW:M(PT)=M(PT)-OW:M(PS(PL))=M(PS(PL))+OW
  305. 3060 MT=0:GOSUB1740:RETURN
  306. 3070 PRINT"[147]"
  307. 3080 PRINT"                 [129]FREE
  308. 3090 [153]"                (null)LENLENLENLENLENRIGHT$"
  309. 3100 [153]"                PEEK OPENORTAN^ LEFT$
  310. 3110 PRINT"                [221] [159][173][192][189] [221]
  311. 3120 [153]"                LEFT$ VERIFY(null)LENRIGHT$ PEEK
  312. 3130 PRINT"              [213][192][189] [149][194][152][209][149][200] [173][192][201]
  313. 3140 [153]"              (null)   VERIFYMID$ASC(null)   (null)
  314. 3150 PRINT"              [173][192][152][168][192][192][192][192][192][152][168][192][189]
  315. 3160 [153]"                PRINT#SPC(     SPC(
  316. 3170 PRINT:PRINT"                [129]PARKING":PRINT
  317. 3180 IFPF=0THENGOSUB1740:RETURN
  318. 3190 PRINT:PRINT"       YOU GET THE FREE PARKING"
  319. 3200 PRINT"          JACKPOT OF $"FP"!":M(PT)=M(PT)+FP:FP=0:PRINT:GOSUB1740:RETURN
  320. 3210 PRINT"[147]";TAB(15);"GO TO JAIL"
  321. 3220 IFDB=3THENPRINT:PRINT" FOR ROLLING DOUBLES 3 TIMES IN A ROW!":PRINT
  322. 3230 PRINTTAB(16);"[151][176][178][178][178][178][178][178][174]":FORI=1TO5:PRINTTAB(16);"[221][221][221][221][221][221][221][221]":NEXT
  323. 3240 PRINTTAB(16);"[173][177][177][177][177][177][177][189]":PRINT:PL(PT)=41:JF=1:DB=0
  324. 3250 FORKO=1TO3:FORT=60TO110STEP1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT
  325. 3260 FORDL=1TO10:NEXT
  326. 3270 FORT=110TO60STEP-1.7:FORI=1TO6:POKEG(I),T:NEXT:NEXT:NEXT
  327. 3280 FORI=1TO6:POKEG(I),0:NEXT
  328. 3290 PRINT"";:GOSUB1740:RETURN
  329. 3300 PRINT"[147]";TAB(15);"LUXURY TAX":PRINT:PRINTTAB(16);"PAY $75"
  330. 3310 PRINT:PRINT:PRINT:M(PT)=M(PT)-75:FP=FP+75:GOSUB1740:RETURN
  331. 3320 PRINT"[147]";TAB(15);"INCOME TAX":PRINT:PRINTTAB(16);"PAY $200"
  332. 3330 PRINT:PRINT:PRINT:M(PT)=M(PT)-200:FP=FP+200:GOSUB1740:RETURN
  333. 3340 CC=CC+1:IFCC>16THENCC=CC-16
  334. 3350 PO=3-PT:CC$=CC$(CC):IFCC=1ANDCJ(1)THENCC=CC+1:CC$=CC$(CC)
  335. 3360 PRINT"[147]           [158]COMMUNITY CHEST":PRINTCC$""
  336. 3370 IFCC=1THENCJ(1)=PT
  337. 3380 IFCC=2THENGOSUB1740:GOTO3210
  338. 3390 IFCC=3THENPL(PT)=1:MF=1:GOSUB1740:GOSUB1710:RETURN
  339. 3400 IFCC=4THENM(PT)=M(PT)+45
  340. 3410 IFCC=5THENM(PT)=M(PT)+50:M(PO)=M(PO)-50
  341. 3420 IFCC=6THENM(PT)=M(PT)+25
  342. 3430 IFCC=7THENM(PT)=M(PT)-150:FP=FP+150
  343. 3440 IFCC=8THENM(PT)=M(PT)+20
  344. 3450 IFCC=9THENGOSUB3540
  345. 3460 IFCC=10THENM(PT)=M(PT)+10
  346. 3470 IFCC=11THENM(PT)=M(PT)+100
  347. 3480 IFCC=12THENM(PT)=M(PT)+100
  348. 3490 IFCC=13THENM(PT)=M(PT)-100
  349. 3500 IFCC=14THENM(PT)=M(PT)+200
  350. 3510 IFCC=15THENM(PT)=M(PT)-50
  351. 3520 IFCC=16THENM(PT)=M(PT)+100
  352. 3530 GOSUB1740:RETURN
  353. 3540 YP=0:FORI=1TO40
  354. 3550 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(40*H(I))
  355. 3560 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+115
  356. 3570 NEXT:PRINT"YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP+YP:RETURN
  357. 3580 CH=CH+1:IFCH>16THENCH=CH-16
  358. 3590 PO=3-PT:CH$=CH$(CH):IFCH=8ANDCJ(2)THENCH=CH+1:CH$=CH$(CH)
  359. 3600 PRINT"[147]          [150]? ? CHANCE ? ?":PRINTCH$""
  360. 3610 IFCH=1THENM(PT)=M(PT)-15:FP=FP+15
  361. 3620 IFCH=2THENGOSUB1740:GOTO3210
  362. 3630 IFCH=3THENPL(PT)=1:MF=1:GOSUB1740:GOSUB1710:RETURN
  363. 3640 IFCH=4THENM(PT)=M(PT)+150
  364. 3650 IFCH=5THENGOSUB3780:MF=1
  365. 3660 IFCH=6THENGOSUB3820:MF=1
  366. 3670 IFCH=7THENM(PT)=M(PT)+50
  367. 3680 IFCH=8THENCJ(2)=PT
  368. 3690 IFCH=9THENM(PT)=M(PT)-50:M(PO)=M(PO)+50
  369. 3700 IFCH=10THENGOSUB3840:MF=1
  370. 3710 IFCH=11THENGOSUB3860:MF=1
  371. 3720 IFCH=12THENPL(PT)=PL(PT)-3:MF=1
  372. 3730 IFCH=13THENGOSUB3880:MF=1
  373. 3740 IFCH=14THENGOSUB3900
  374. 3750 IFCH=15THENGOSUB3780:MF=1
  375. 3760 IFCH=16THENGOSUB3940:MF=1
  376. 3770 GOSUB1740:RETURN
  377. 3780 PL(PT)=PL(PT)+1:IFPL(PT)>40THENGOSUB6640:PL(PT)=PL(PT)-40
  378. 3790 IFPT$(PL(PT))="RR"THEN3810
  379. 3800 GOTO3780
  380. 3810 DV=1:RETURN
  381. 3820 IFPL(PT)>25THENGOSUB6640
  382. 3830 PL(PT)=25:RETURN
  383. 3840 IFPL(PT)>12THENGOSUB6640
  384. 3850 PL(PT)=12:RETURN
  385. 3860 IFPL(PT)>6THENGOSUB6640
  386. 3870 PL(PT)=6:RETURN
  387. 3880 PL(PT)=40:RETURN
  388. 3890 RETURN
  389. 3900 DF=0:YP=0:FORI=1TO40
  390. 3910 IFPS(I)=(PT)ANDH(I)<5THENYP=YP+(25*H(I))
  391. 3920 IFPS(I)=(PT)ANDH(I)=5THENYP=YP+100
  392. 3930 NEXT:PRINT"YOU PAY $"YP:M(PT)=M(PT)-YP:FP=FP=YP:RETURN
  393. 3940 PL(PT)=PL(PT)+1
  394. 3950 IFPL(PT)>40THENGOSUB6640:PL(PT)=PL(PT)-40
  395. 3960 IFPT$(PL(PT))="U"THEN3980
  396. 3970 GOTO3940
  397. 3980 MF=1:RETURN
  398. 3990 PRINT"[147]"
  399. 4000 JT(PT)=JT(PT)+1
  400. 4010 PRINT"PLAYER #"PT"IS IN JAIL"
  401. 4020 PRINT:PRINT"YOU HAVE BEEN IN"JT(PT)"TURNS"
  402. 4030 PRINT"YOU MAY:  1.  PAY $50"
  403. 4040 PRINT"          2.  USE  A 'GET OUT OF JAIL                 FREE CARD."
  404. 4050 PRINT"          3.  TRY TO ROLL DOUBLES."
  405. 4060 PRINT:INPUT"CHOICE";I:IFI<1ORI>3THEN4060
  406. 4070 IFI=1THENM(PT)=M(PT)-50:FP=FP+50:PL(PT)=11:GOSUB1740:JE=1:RETURN
  407. 4080 IFI=2ANDCJ(1)=PTTHENCJ(1)=0:PL(PT)=11:GOSUB1740:JE=1:RETURN
  408. 4090 IFI=2ANDCJ(2)=PTTHENCJ(2)=0:PL(PT)=11:GOSUB1740:JE=1:RETURN
  409. 4100 IFI=2THENPRINT"YOU DON'T HAVE A CARD":GOTO4060
  410. 4110 IFI=3THENGOSUB1610:IFDBTHEN4170
  411. 4120 PRINT"YOU DIDN'T ROLL DOUBLES."
  412. 4130 IFJT(PT)>2THENPRINT"YOU MUST PAY THE $50":M(PT)=M(PT)-50:PL(PT)=11:JB=1
  413. 4140 IFJT(PT)>2THENGOSUB1740:FP=FP+50:RETURN
  414. 4150 GOSUB1740:RETURN
  415. 4160 IFPL(PT)=11THENGOSUB1740:JE=1:RETURN
  416. 4170 PRINT"YOU MADE IT OUT!!!":PL(PT)=11:GOSUB1740:JB=1:DB=0:RETURN
  417. 4180 GOTO6310
  418. 4190 PRINT"[147]":IFPFTHENPRINT"MONEY IN FREE PARKING JACKPOT $";FP
  419. 4200 PRINT"PLAYER 1 HAS $";M(1):PRINT"PLAYER 2 HAS $";M(2)
  420. 4210 PRINT:PRINT"PLAYER";PT"UP."
  421. 4220 PRINT:PRINT:PRINTTAB(15);"OPTIONS"
  422. 4230 PRINT
  423. 4240 PRINT"   R=REVIEW PROPERTIES"
  424. 4250 PRINT"   L=LIST ALL PROPERTIES"
  425. 4260 PRINT"   B=BUILD HOUSES/HOTELS"
  426. 4270 PRINT"   S=SELL PROPERTIES TO OTHER PLAYER"
  427. 4280 PRINT"   M=MORTGAGE PROPERTIES(SELL HOUSES)"
  428. 4290 PRINT"   D=DISPLAY TITLE DEEDS"
  429. 4300 PRINT"   Q=RETURN TO GAME"
  430. 4310 PRINT"  XX=END GAME":PRINT
  431. 4320 INPUT"CHOICE  [191][157][157][157]";C$
  432. 4330 IFC$="[191]"THEN4320
  433. 4340 IFC$="R"THENGOSUB4430
  434. 4350 IFC$="L"THENGOSUB4600
  435. 4360 IFC$="B"THENGOSUB4750
  436. 4370 IFC$="S"THENGOSUB5190
  437. 4380 IFC$="M"THENGOSUB5550
  438. 4390 IFC$="D"THENGOSUB6610
  439. 4400 IFC$="Q"THENRETURN
  440. 4410 IFC$="XX"THEN6390
  441. 4420 GOTO4190
  442. 4430 INPUT"FOR WHICH PLAYER (1 OR 2)";PN
  443. 4440 IFPN<1ORPN>2THEN4430
  444. 4450 PRINT"[147]"
  445. 4460 PRINTTAB(6)"PROPERTIES FOR PLAYER ";PN
  446. 4470 PRINT
  447. 4480 FORI=1TO40:PO$="":IFPS(I)=PNTHENPRINTPN$(I);
  448. 4490 IFPS(I)<>PNTHEN4560
  449. 4500 IFPT$(I)<>"P"THEN4540
  450. 4510 PRINTSPC(20-(LEN(PN$(I))-2));" -";:IFH(I)<5THENPO$=STR$(H(I))+" HS"
  451. 4520 IFH(I)=5THENPO$=" HOTEL[146]"
  452. 4530 PO$=PO$+"/$"+MID$(STR$(P(I,H(I)+2)),2)
  453. 4540 IFMG(I)=1THENPO$="- MORTGAGED"
  454. 4550 PRINTPO$
  455. 4560 NEXT
  456. 4570 PRINT:IFCJ(1)=PNORCJ(2)=PNTHENPRINT"GET OUT OF JAIL FREE CARD."
  457. 4580 PRINT"PLAYER"PN"HAS $";M(PN)
  458. 4590 PRINT:GOSUB1740:RETURN
  459. 4600 PRINT"[147]"
  460. 4610 TT$="NAME                            OWNER/[157][157][157][157][157][157]#HOUSES":PRINTTT$
  461. 4620 FORK=1TO40:IFPT$(K)<>"P"ANDPT$(K)<>"RR"ANDPT$(K)<>"U"THEN4710
  462. 4630 PRINTPN$(K)"";TAB(21);
  463. 4640 PRINTTAB(33)
  464. 4650 P$=STR$(PS(K)):PP$=MID$(STR$(H(K)),2):IFH(K)>4THENPP$="H"
  465. 4660 IFPT$(K)<>"P"THENPP$="X"
  466. 4670 IFMG(K)THENPP$="MG[146]"
  467. 4680 P$=P$+" -"+PP$
  468. 4690 IFPS(K)=0THENP$=" NONE"
  469. 4700 PRINTP$
  470. 4710 IFK=20THENPRINT:GOSUB1740:PRINT"[147]":PRINTTT$
  471. 4720 NEXTK
  472. 4730 PRINT:GOSUB1740
  473. 4740 RETURN
  474. 4750 PRINT"[147]"
  475. 4760 HO=0
  476. 4770 PRINT" ON WHICH GROUP":PRINTPG$
  477. 4780 PRINT
  478. 4790 INPUT"WHICH COLOR";C$
  479. 4800 FORI8=1TO41:IFC$=LEFT$(C$(I8),LEN(C$))THENPL=I8:C$=C$(I8):GOTO4830
  480. 4810 NEXTI8
  481. 4820 PRINT"ILLEGAL GROUP":GOTO4790
  482. 4830 P7=PT
  483. 4840 P5=P7:GOSUB2340:IFMGTHENOA=0
  484. 4850 IFOATHEN4880
  485. 4860 PRINT"SORRY YOU EITHER DON'T OWN ALL THE PROP-ERTY IN THAT GROUP OR SOME";
  486. 4870 PRINT" IS MORTGAGED.":GOSUB1740:RETURN
  487. 4880 PRINT"   PROPERTY NAME    # OF HOUSES(5=HOTEL)"
  488. 4890 HS=0:FORI=PLTOPL+4:IFC$=C$(I)THENPRINTPN$(I)"";TAB(30);H(I):HS=HS+H(I)
  489. 4900 NEXT
  490. 4910 PRINT:PRINT"HOUSES FOR THIS GROUP COST $"P(PL,9)"EACH"
  491. 4920 PRINT"HOTELS COST $"P(PL,9)"+ 4 HOUSES OR $";(P(PL,9)*5)
  492. 4930 PRINT
  493. 4940 PRINT"YOU HAVE $"M(PT)
  494. 4950 PRINT"HOTELS AUTOMATICALLY ADDED AFTER 4TH    HOUSE"
  495. 4960 PRINT"HOW  MANY HOUSES DO YOU WANT TO BUY (MAX=";:MX=((5*PC)-HS):PRINTMX")"
  496. 4970 INPUTHN:IFHN>MXTHENGOTO4960
  497. 4980 H7=INT(HN/PC):H8=HN-(H7*PC)
  498. 4990 IFM(P7)<(HN*P(PL,9))THENPRINT"YOU DON'T HAVE ENOUGH MONEY!":GOTO4960
  499. 5000 IFHN=0THENPRINT"OK":GOSUB1740:RETURN
  500. 5010 M(P7)=M(P7)-(HN*P(PL,9)):FORE=PLTOPL+4:IFC$=C$(E)THENH(E)=H(E)+H7
  501. 5020 NEXT
  502. 5030 IFH8THEN5050
  503. 5040 GOTO5180
  504. 5050 PRINT"YOU HAVE"H8"HOUSES LEFT OVER"
  505. 5060 PRINT:F1=0:FORF=PLTOPL+4:IFC$=C$(F)THENF1=F1+1:PRINTF1,PN$(F);"  "H(F)
  506. 5070 NEXT:PRINT:FORG=1TOH8
  507. 5080 PRINT"WHERE DO YOU WANT HOUSE #"G;:INPUTHL:IFHL=HOTHENPRINT"CAN'T":GOTO5080
  508. 5090 F2=0:F1=0:F9=0
  509. 5100 FORF=PLTOPL+3:IFC$=C$(F)THENF1=F1+1:IFF1=HLTHENF9=F
  510. 5110 NEXTF
  511. 5120 IFF9=0THENPRINT"NO SUCH NUMBER":GOTO5080
  512. 5130 H2=0:FORF=PLTOPL+3:IFC$=C$(F)THENIFH(F9)>H(F)THENH2=H2+1
  513. 5140 NEXT
  514. 5150 IFH2THENPRINT"ILLEGAL DISTRIBUTION OF HOUSES!":GOTO5080
  515. 5160 HO=HL:H(F9)=H(F9)+1
  516. 5170 NEXTG
  517. 5180 PRINT"DONE":GOSUB1740:RETURN
  518. 5190 INPUT"WHAT PLAYER HAS A PROPERTY TO SELL";P1
  519. 5200 IFP1=0THENGOSUB1740:RETURN
  520. 5210 P2=P1+1:IFP2>2THENP2=P2-2
  521. 5220 PRINT"IS IT A PROPERTY";:INPUTQ$:IFLEFT$(Q$,1)="N"THEN5430
  522. 5230 PRINT"IN WHAT COLOR GROUP":PRINTPG$
  523. 5240 PRINT:INPUT"WHICH";C$
  524. 5250 FORI6=1TO41:IFC$=LEFT$(C$(I6),LEN(C$))THENPL=I6:C$=C$(I6):GOTO5280
  525. 5260 NEXTI6
  526. 5270 PRINT"ILLEGAL GROUP":GOTO5240
  527. 5280 PRINT"#  PROPERTY";TAB(30);"OWNER"
  528. 5290 HO=0:CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:PRINTCT"   "PN$(I)"";TAB(35);PS(I)
  529. 5300 IFH(I)THENHO=1
  530. 5310 NEXT
  531. 5320 PRINT:PRINT"WHAT NUMBER DOES PLAYER"P1"WANT          TO SELL"
  532. 5330 INPUTTP
  533. 5340 CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
  534. 5350 NEXT
  535. 5360 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO5320
  536. 5370 IFPS(T4)<>P1THENPRINT"PLAYER #"P1"DOES NOT OWN IT.":GOTO5190
  537. 5380 IFHOTHENPRINT"YOU HAVE HOUSES ON THAT GROUP YOU CAN'T SELL IT.":GOTO5420
  538. 5390 INPUT "WHAT IS THE AGREED SELLING PRICE";SP
  539. 5400 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(T4)=P2
  540. 5410 PRINT"PLAYER #"P2"BOUGHT "PN$(T4)"":PRINT"FOR $"SP
  541. 5420 PRINT:GOSUB1740:RETURN
  542. 5430 PRINT"PROPERTY";TAB(30);"OWNER"
  543. 5440 FORI=6TO36STEP10:N=N+1:PRINTN"  "PN$(I)"";TAB(35);PS(I):NEXT:N=0
  544. 5450 PRINT" 5   "PN$(13)"";TAB(35);PS(13):PRINT" 6   "PN$(29)"";TAB(35);PS(29)
  545. 5460 INPUT"WHICH #";NM:IFNM=0THENRETURN
  546. 5470 IFNM<1ORNM>6THEN5460
  547. 5480 IFNM=5ANDPS(13)=P1THENSN=13:GOTO5520
  548. 5490 IFNM=6ANDPS(29)=P1THENSN=29:GOTO5520
  549. 5500 IFNM>0ANDNM<5THENSN=6+((NM-1)*10):IFPS(SN)=P1THENGOTO5520
  550. 5510 PRINT"YOU DON'T OWN IT.":GOTO5430
  551. 5520 INPUT"AGREED PRICE";SP
  552. 5530 M(P1)=M(P1)+SP:M(P2)=M(P2)-SP:PS(SN)=P2
  553. 5540 GOSUB1740:RETURN
  554. 5550 PRINT"[147]":PRINT"  OPTIONS":PRINT"0  RETURN TO MAIN MENU":PRINT"1  MORTAGE PROPERTY"
  555. 5560 PRINT"2  MORTGAGE RAILROAD":PRINT"3  MORTAGE UTILITY"
  556. 5570 PRINT"4  LIFT MORTGAGE(AT 10% INTEREST)":PRINT"5  SELL HOUSES":PRINT
  557. 5580 INPUT"CHOICE";GG:IFGG<0ORGG>5THEN5580
  558. 5590 IFGG=0THENGOSUB1740:RETURN
  559. 5600 ONGGGOSUB5620,5850,5940,6020,6650
  560. 5610 GOTO5550
  561. 5620 PRINT:PRINT"ON WHICH GROUP IS THE PROPERTY TO BE":PRINT"MORTGAGED LOCATED?":PRINTPG$
  562. 5630 PRINT:INPUT"COLOR GROUP";C$
  563. 5640 FORI6=1TO41:IFC$=LEFT$(C$(I6),LEN(C$))THENPL=I6:C$=C$(I6):GOTO5670
  564. 5650 NEXTI6
  565. 5660 PRINT"ILLEGAL GROUP":GOTO5630
  566. 5670 CM=0:FORI=PLTOPL+3:IFC$=C$(I)THENCM=CM+H(I)
  567. 5680 NEXT
  568. 5690 IFCMTHENPRINT"CAN'T MORTGAGE PROPERTIES WITH HOUSES    STILL ON THAT GROUP.":GOTO5840
  569. 5700 PRINT"#  PROPERTY";TAB(25);"OWNER"
  570. 5710 CT=0:FORI=PLTOPL+4:IFC$<>C$(I)THEN5740
  571. 5720 CT=CT+1:PRINTCT"   "PN$(I)"";TAB(27)PS(I);:PP$="":IFMG(I)THENPP$="MORTAGED"
  572. 5730 PRINTPP$
  573. 5740 NEXT
  574. 5750 PRINT:PRINT"WHAT NUMBER IS TO BE MORTGAGED.";:INPUTTP
  575. 5760 IFTP=0THENGOSUB1740:RETURN
  576. 5770 CT=0:FORI=PLTOPL+4:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
  577. 5780 NEXT
  578. 5790 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO5750
  579. 5800 IFPS(T4)<>PTTHENPRINT"YOU DON'T OWN IT.":GOSUB1740:GOTO5550
  580. 5810 IFMG(T4)=1THENPRINT"ALREADY MORTGAGED":GOTO5750
  581. 5820 PRINT:PRINT"OK":MG(T4)=1
  582. 5830 PRINT"YOU GOT $"P(T4,8)"FOR YOUR MORTGAGE.":M(PT)=M(PT)+P(T4,8)
  583. 5840 GOSUB1740:RETURN
  584. 5850 RC=0:FORI=6TO36STEP10:IFPT$(I)="RR"THENRC=RC+1:PRINTRC"  "PN$(I)"     PLR.#"PS(I)
  585. 5860 NEXT
  586. 5870 INPUT"WHICH #";RG
  587. 5880 IFRG<1ORRG>4THEN5870
  588. 5890 RG=6+((RG-1)*10)
  589. 5900 IFPS(RG)<>PTTHENPRINT"YOU DON'T OWN IT.":GOSUB1740:GOTO5550
  590. 5910 IFMG(RG)=1THENPRINT"ALREADY MORTGAGED.":GOSUB1740:GOTO5550
  591. 5920 MG(RG)=1:PRINT"YOU GET $100 FOR MORTGAGE.":M(PT)=M(PT)+100
  592. 5930 GOSUB1740:RETURN
  593. 5940 U(1)=13:U(2)=29
  594. 5950 FORI=1TO2:PRINTI"  "PN$(U(I))"":NEXT
  595. 5960 INPUT"WHICH?";UM
  596. 5970 IFUM<1ORUM>2THEN5960
  597. 5980 IFPS(U(UM))<>PTTHENPRINT"YOU DON'T OWN IT.":GOSUB1740:GOTO5550
  598. 5990 IFMG(U(UM))=1THENPRINT"ALREADY MORTGAGED.":GOSUB1740:GOTO5550
  599. 6000 MG(U(UM))=1:PRINT"YOU GET $75 FOR MORTGAGE.":M(PT)=M(PT)+75
  600. 6010 GOSUB1740:RETURN
  601. 6020 PRINT:PRINT"THESE ARE THE PROPERTIES THAT ARE UNDER A MORTGAGE."
  602. 6030 ML=0:FORI=1TO41:IFPS(I)=(PT)ANDMG(I)=1THENML=ML+1:PRINTML"  "PN$(I)""
  603. 6040 NEXT
  604. 6050 IFML=0THENPRINT"YOU HAVE NO MORTGAGED PROPERTIES.":GOSUB1740:RETURN
  605. 6060 PRINT:INPUT"WHICH MORTGAGE DO YOU WAN'T TO LIFT";LF
  606. 6070 IFLF<1ORLF>MLTHENPRINT"ILLEGAL":GOTO6060
  607. 6080 ML=0:FORI=1TO41:IFPS(I)=(PT)ANDMG(I)=1THENML=ML+1:IFML=LFTHENFT=I
  608. 6090 NEXT
  609. 6100 PRINT"THE MORTGAGE IS FOR $"P(FT,8)
  610. 6110 PRINT"YOU MUST PAY $";:PY=P(FT,8)*1.10:PRINTPY
  611. 6120 IFPY>M(PT)THENPRINT"YOU DON'T HAVE THE MONEY.":GOSUB1740:RETURN
  612. 6130 M(PT)=M(PT)-PY:MG(FT)=0
  613. 6140 GOSUB1740:RETURN
  614. 6150 IFAFTHEN6170
  615. 6160 RETURN
  616. 6170 PL=PL(PT):PRINTPN$(PL)" WILL NOW BE AUCTIONED"
  617. 6180 PRINT"TO THE HIGHEST BIDDER"
  618. 6190 PO=3-PT:PRINT:HB=0:PA=PT:AC=0:PRINT:HB=0:PA=PT:AC=0
  619. 6200 PA=3-PA
  620. 6210 PRINT"PLAYER"PA"WHAT'S YOUR BID";:INPUTBD:BD=INT(BD):AC=AC+1
  621. 6220 IFBD=0THENON(AC>1)+2GOTO6250,6200
  622. 6230 IFBD<=HBTHENPRINT"YOU MUST BID HIGHER THAN"HB"OR BID '0'":GOTO6210
  623. 6240 HB=BD:HR=PA:GOTO6200
  624. 6250 IFHB=0THEN6300
  625. 6260 PRINTPN$(PL)" GOES TO"
  626. 6270 PRINT"PLAYER"HR" FOR $"HB
  627. 6280 M(HR)=M(HR)-HB:PS(PL)=HR
  628. 6290 RETURN
  629. 6300 PRINT:PRINTPN$(PL)" HAS NOT BEEN PURCHASED.":RETURN
  630. 6310 PRINT"[147]":PRINT"PLAYER #"PT"IS BROKE!!"
  631. 6320 PRINT"IF YOU CAN'T RAISE $"ABS(M(PT))"THEN YOU ARE OUT OF THE GAME."
  632. 6330 PRINT"DO NOT HIT 'Q' (RETURN TO GAME) UNTIL   YOU FINISH TRYING TO";
  633. 6340 PRINT" RAISE MONEY"
  634. 6350 GOSUB1740:GOSUB4190
  635. 6360 IFM(PT)>=0THENRETURN
  636. 6370 IFM(PT)<0THENPRINT"YOU ARE BANKRUPT!!!":PT=3-PT
  637. 6380 PRINT" --PLAYER #"PT"WINS!-- ":END
  638. 6390 PRINT"GAME OVER"
  639. 6400 PRINT"THE WINNER IS ";
  640. 6410 IFM(1)>M(2)THENPRINT"PLAYER #1 WITH $"M(1)
  641. 6420 IFM(2)>M(1)THENPRINT"PLAYER #2 WITH $"M(2)
  642. 6430 IF M(2)=M(1)THENPRINT"NEITHER,  IT'S A TIE!"
  643. 6440 PRINT"PLAYER 1 =  $";M(1)
  644. 6450 PRINT"PLAYER 2 =  $";M(2)
  645. 6460 FOR A=1TO2500:NEXTA
  646. 6470 POKE54296,0:FORI=1TO6:POKEG(I),0:GOTO6930
  647. 6480 FORJ=832TO939
  648. 6490 READI:POKEJ,I:NEXT
  649. 6500 DATA 160,0,185,0,4,153,0,192,185,0,5,153,0,193,185,0,6,153,0
  650. 6510 DATA 194,185,0,7,153,0,195,185,0,216,153,0,196,185,0,217,153,0
  651. 6520 DATA 197,185,0,218,153,0,198,185
  652. 6530 DATA 0,219,153,0,199,200,208,205,96,160,0,185,0,192,153,0,4,185,0,193,153
  653. 6540 DATA 0,5,185,0,194,153,0,6,185,0,195,153,0,7,185,0,196,153,0,216,185,0,197
  654. 6550 DATA 153,0,217,185,0,198,153,0,218,185,0,199,153,0,219,200,208,205,96
  655. 6560 RETURN
  656. 6570 FORP4=1TO2
  657. 6580 Y$=""+PN$(PL(P4))+LEFT$("                ",18-(LEN(PN$(PL(P4)))-2))+"[146]"
  658. 6590 MN$="$"+MID$(STR$(M(P4)),2)+"    [146]":X=13:Y=2*P4+3:Z$=Y$:GOSUB1560
  659. 6600 Y=Y+1:Z$=MN$:GOSUB1560:NEXT:RETURN
  660. 6610 PRINT"DISPLAY DEEDS FOR WHICH COLOR GROUP:":PRINTPG$:INPUTC$:PRINT
  661. 6620 P3=PL:FORI=1TO41:IFC$=LEFT$(C$(I),LEN(C$))THENGF=1:PL=I:GOSUB1910:GF=0
  662. 6630 NEXT:PL=P3:RETURN
  663. 6640 M(PT)=M(PT)+200:PRINT"COLLECTED $200":RETURN
  664. 6650 PRINT"ON WHICH COLOR GROUP:":PRINTPG$:INPUTC$
  665. 6660 PL=0:FORI=41TO1STEP-1:IFC$=LEFT$(C$(I),LEN(C$))THENPL=I:C$=C$(I)
  666. 6670 NEXTI:IFPLTHEN6690
  667. 6680 PRINT"ILLEGAL GROUP":GOTO6650
  668. 6690 DO=0:HN=0:FORI=PLTOPL+3:IFPS(I)<>(PT)ANDC$=C$(I)THENDO=1
  669. 6700 IFC$=C$(I)THENHN=HN+H(I)
  670. 6710 NEXT
  671. 6720 IFDO=1ORHN=0THENPRINT"YOU DON'T OWN HOUSES ON THESE PROPERTIES":GOSUB1740:RETURN
  672. 6730 PRINT"#  PROPERTY";TAB(25);"HOUSES(5=HOTEL)"
  673. 6740 CT=0:FORI=PLTOPL+3:IFC$=C$(I)THENCT=CT+1:PRINTCT"   "PN$(I)"";TAB(27)H(I)
  674. 6750 NEXT
  675. 6760 INPUT"WANT TO REMOVE ALL THESE HOUSES";A$:IFLEFT$(A$,1)="Y"THEN6900
  676. 6770 PRINT:INPUT"WHAT # TO REMOVE A HOUSE FROM.";TP
  677. 6780 IFTP=0THEN RETURN
  678. 6790 CT=0:FORI=PLTOPL+3:IFC$=C$(I)THENCT=CT+1:IFCT=TPTHENT4=I:FF=1
  679. 6800 NEXT
  680. 6810 IFFF=0THENPRINT"ILLEGAL NUMBER":GOTO6770
  681. 6820 IFH(T4)=0THENPRINT"NO HOUSES THERE.":GOTO6770
  682. 6830 NN=0:NH=H(T4):FORI=PLTOPL+3:IFH(I)>NHTHENNN=1
  683. 6840 NEXT
  684. 6850 IFNNTHENPRINT"YOU CAN'T REMOVE THAT HOUSE.":GOTO6770
  685. 6860 PRINT:PRINT"OK.":H(T4)=H(T4)-1
  686. 6870 HM=P(PL,9)/2
  687. 6880 PRINT"YOU GOT $"HM"FOR YOUR HOUSE":M(PT)=M(PT)+HM
  688. 6890 GOSUB1740:GOTO5550
  689. 6900 HM=0:FORI=PLTOPL+3:IFC$=C$(I)THENHM=HM+(P(PL,9)/2)*H(I):H(I)=0
  690. 6910 NEXT:PRINT"YOU GOT $"HM"FOR YOUR HOUSES":M(PT)=M(PT)+HM:GOTO6890
  691. 6920 ORIGNAL PROGRAM BY JOHN O'HARE:PRINT"
  692. 6930 [151] 53280,0:[151]53281,0:[153][199](142)[199](8);
  693. 6940 [153]"CONTLOAD     MAKE SURE THE MASTER DISKETTE"
  694. 6950 [153]"          IS IN THE DISK DRIVE"
  695. 6960 [153]"       PRESS ANY KEY TO CONTINUE."
  696. 6970 [161] A$:[139] A$[178]"" [167]6970
  697. 6980 [159]1,8,2,"MENU2,P,R":[161]#1,A$
  698. 6990 [139] ST[179][177]0 [167] [160]1:[137]6930
  699. 7000 [160]1
  700. 7010 [153]"LOADSTOPLOAD"[199](34)"MENU2"[199](34)",8"
  701. 7020 [151] 636,0:[151]64,0:[151]48,8:[151]52,160
  702. 7030 [151] 54,0:[151]56,160:[151]57,0:[151]58,255
  703. 7040 [151]62,0
  704. 7050 [153]"RUN"
  705. 7060 [153]""[163]14)"CONTLOADING....STOP":[151]198,3
  706. 7070 [151]631,19:[151]632,13:[151]633,13:[151]59,0:[151]60,0:[162]
  707.